home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -screenplay- / hd_installers / jstsw_usr / install-english < prev    next >
Text File  |  1999-02-08  |  2KB  |  83 lines
  1. (set bin-dest
  2.      (askdir (prompt "Where would you like the binary files (JST, disk imagers, auxiliary files) installed?\n"
  3.                              "A drawer will NOT be created\n\nThe location should be in your path (e.g. C:)")
  4.                      (help @askdir-help)
  5.                      (default "C:")
  6.                      (newpath)
  7.       )
  8. )
  9.  
  10.  
  11. (if (exists "Work:" (noreq) )
  12.     (set @default-dest "Work:")
  13.     (if (exists "SYS:Work" (noreq) )
  14.         (set @default-dest "SYS:Work")
  15.     )
  16.      (set @default-dest "SYS:")
  17. )
  18.  
  19.  
  20.  
  21. ;ask the user to select a directory to install the other files
  22.  
  23. (set default-dest
  24.      (tackon (askdir (prompt "Where would you like the auxiliary files (docs,examples) installed?\n"
  25.                              "A drawer called JST will be created.")
  26.                      (help @askdir-help)
  27.                      (default @default-dest)
  28.                      (newpath)
  29.              )
  30.      "JST"
  31.      )
  32. )
  33. (set @default-dest default-dest)
  34.  
  35. ;create the selected directory
  36. (makedir @default-dest
  37.          (infos)
  38. )
  39.  
  40. (set doc-dest (tackon @default-dest "docs"))
  41.  
  42.  
  43. (makedir doc-dest
  44.          (infos)
  45. )
  46.  
  47. (if (exists "sources" )
  48.   (
  49.     (set source-dest (tackon @default-dest "sources"))
  50.  
  51.     (makedir source-dest
  52.            (infos)
  53.     )
  54.     (copyfiles (source "sources")
  55.              (dest source-dest)
  56.          (all)
  57.     )
  58.   )
  59.  
  60.  
  61. )
  62.  
  63.  
  64. (copyfiles (source "bin")
  65.            (dest bin-dest)
  66.        (all)
  67. )
  68.  
  69. (copyfiles (source "docs/engonly")
  70.            (dest doc-dest)
  71.        (all)
  72. )
  73.  
  74. (copyfiles (source "docs/english")
  75.            (dest doc-dest)
  76.        (all)
  77. )
  78.  
  79. ; cleanup
  80.  
  81. (delete (tackon bin-dest "README"))
  82. (delete (tackon bin-dest "README.info"))
  83.